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MM MM TTTTTTTTTT HH HH ceccccce = VV TTTTTTTTTT DDDDDDDD GGGGGGGG 
MMMM =6OMMMM TT HH HH CC VV VV TT DD DD GG 
MMMM =MMMM TT HH HH CC VV VV TT DD DD GG 
MM MM MM TT HH HH (CC VV VV TT DD DD GG 
MM MM OMM TT HH HH CC VV VV TT DD DD GG 
ala! 4M TT HHHHHHHHHH = CC VV VV TT DD DD GG 
MM MM TT HHHHHHHHHH = CC VV VV TT DD DD GG 
MM MM TT HH HH CC VV VV TT DD DD GG GGGGGG 
MM MM TT HH HH CC VV VV TT DD DD GG GG6GG6GG 
MM MM TT HH HH (CC VV VV TT DD DD GG GG eeee 
MM MM TT HH HH CC VW VV TT DD DD GG GG cove 
MM MM TT HH HH cccccccc VV TT DDDDDDDD GGGGGG eee 
MM MM TT HH HH ccccccce VV TT DDDDDDDD GGGGGG cece 
LL III] SSSSSSSS 
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LL I] SS 
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EOS 
; FACILITY: Mathematics Library 
} ABSTRACT: 


Routines to genvers a sin 
from D floating to G floa 


“AUTHOR : Steven B. Lionel, CREAT 


Bee TE aR ge HAS eee Ot OO aRst 


g}e value or a vector of values 
ng, and in reverse. 


; ENVIRONMENT : User Mode, AST Reentrant 


ION DATE: 23-Apr-79 
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-SBTTL Edit History 


Original. 

Al Low zero count address as omission. SBL 24-Apr-79 

Fix bug in ZERO_G. SBL 14-Nov-1979 

sepers e entry for array conversion. Fault on reserved operand. 
SBL 31-Dec-1979 


= Use general mode ocerese in. SBL_ 30-Nov-1981 
= Removed an unnecessary .EXTRN SYSSUNWIND. JCW 19-JUN-84. 
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008 DECLARATIONS ae Te ERTHRTL. SREJATHCVTDS. MAR; 1 
5 -SBTTL DECLARATIONS 
3 INCLUDE FILES: 
60 ; 
) 3; EXTERNAL DECLARATIONS: 
8 -DSABL GBL ; Prevent undeclared 
64 3; symbols from borne 
65 3 automatically global. 
8 66 eEXTRN MTHSSSIGNAL ; Math signal routine 
6 eEXTRN MTHSK_FLOUNDMAT ; Underflow error code 
8 oe EXTRN MTHSK_FLOOVEMAT ; Overflow error code 
00 % H 
00 71 ; MACROS 
00 Me 3 
000 7 SCHF DEF 
000 74 S$SSDEF 
44 75 SSFDEF 
000 6 SPSLDEF 
0000 77; 
44 78 ; EQUATED SYMBOLS: 
000 ty 3 
4 30 
000 1% 
44 Hf 3; OWN STORAGE: 
000 : 3 
0000 4 
0000 85 ; 
44 36 3 PSECT DECLARATIONS: 
00000000 88 -PSECT _MTHSCODE PIC, USR, CON, REL, LCL, SHR, - 
sit 34 EXE, RD, NOWRT, LONG 
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00000008 
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BF .SBTTL MTHSCVT_D_G = Convert D to G 
: FUNCTIONAL DESCRIPTION: 


MTHSCVT_D.G and MTHSCVT_DA_GA convert D_floating values to 
G_ floating. 


MTHSCVT_G_D and MTHSCVT_GA_DA convert G_floating values to 
D_floating. 


MTHSCVT_D_G and MTHSCVT_G_D are functions which convert their 
single grgunent to the deStination datatype and return it as 
a function value. 


MTHSCVT_DA_GA and MTHS$CVT_GA_DA are subroutines which convert 
an array of values in a single call. 


These routines are designed to function like hardware convert 

instructions. They will fault on reserved operands. f 

gt A detected, or underflow with FU enabled, an error 
signaled. 


ALL four routines are designed to function correctly on VAX-11 
processors which do not have the G_floating instruction set. 


CALLING SEQUENCES: 


result.wq.v = MTHSCVT_D_G (source.rd.r) 
result.wd.v = MTHSCVT_G_D (source.rg.r) 


CALL MTHSCVT_DA_GA (source.rd.ra, sees eats » count.rl.rJ) 
CALL MTHSCVT_GA_DA (source.rg.ra, dest.rd.ra C, count.rl.rJ) 


INPUT PARAMETERS: 


Bete Ge Ge Se Ge Ge Se Ge Ge Ge Ge Se Ge Ge Se Ge Ge Se Se Be Sse Se Se Se Se Se Ge Se Se *s Se 


in source and dest. If omitted, 1 is 
assumed. 


source = 4 ; Argument to be converted. Either 
; a scalar, if count is omitted, or 
3 an array. 
count = 12 ; Optional. The count of array elements 


IMPLICIT INPUTS: 


The callers PSL, which is examined to see if floating underflow 
is enabled. 


OUTPUT PARAMETERS: 


value The converted value returned in RO-R1 
if MTH$SCVT_D_G or MTHSCVT_G_D. 
dest = 8 ; The destination of the conversion. It 


; must be the same length as source. 
> if Sount is present, dest must also be 
resent. 

ource and dest MUST either overlap 
exactly, or be completely disjoint. 
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: IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 


If only source is given, the result is returned as the function 
value in RO-R1. 


SIDE EFFECTS: 


MTHSCVT_G_D signals MTH$_FLOOVEMAT (Floating overflow in Math 
Library) Tf conversion overflows result. Default result is 
reserved operand. 


MTHSCVT_G_D signals MTHS_FLOUNDMAT (Floating underflow in Math 
library) Tf conversion underflows and the caller has floating 
underflow enabled. The default result is zero. 


DOOOOOOCOCSooO 


COOQCCOCOCCOOCOOCOCCSOOOOOOOOoOO 


ALL routines detect reserved floating operands by creating 
a@ reserved operand fault (SS$_ROPRAND). If the reserved value 
is changed to a non-reserved value, conversion will continue. 


OOoOOSoOoCooooooooosooooooooo 


-ENTRY MTHSCVT_DA_GA, “M<R2,R3,R4,R5,R6,R7> 


ee W*CcvT R4 3; Address of actual convert routine 


54 OO79'CF 9E DG, 
25 CVT_COMMON ; Join common routine 


ENTRY MTHSCVT_GA_DA, “M<R2,R3,R4,R5,R6,R7> 

MOVAB W*CVT_HANDLER, (FP) ; Enable local condition handler 
MOVAB W*CVT P ; Address of actual convert routine 
BRB CVT_COMAON ; Join common routine 

-ENTRY MTHSCVT_D_G, “M<R2,R3,R4,R5,R6,R7> 

MOVAB W*CVT_D G, R4 ; Address of actual convert routine 
BRB FUNC_CORMON ; Join common routine 

-ENTRY MTHSCVT_G_D, “M<R2,R3,R4,R5,R6,R7> 

MOVAB = W*CVT_HANDLER, (FP) ; Enable local condition handler 


MOVAB ; Address of actual convert routine 
BRB FUNC_COMMON ; Join common routine 


a a ee ee a ed ed ed od od od = 2d dd 
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onvert D to G, G to D 16-SEP-1 1: AX/VMS Macro V04-00 Page 
COMMON = Common convert routine -$EE= 1386 9 Mf 9 ERTMR TL. Se SRE SRTHCVTDG. MAR; 1 dy 
9 -SBTTL CVT_COMMON = Common convert routine 
? CVT_COMMON: 
5 9A § MOVZBL #1, R7 ; Default count 3 : 
2? 4 AC OD source (AP) g : Get —S addre 
6 8 AC 3 4 MOVE ae”? 3; Get destination oadrece 
03 5 CMPB costs “iieuntit : fs coune present? 
1 $ BLSS Loop’ 5 ul, use default of 1 
Oc AC OD TSTL count (AP) ; ry Weaher way 
1 3 BEQL L 3 Ll not there 
57 oc BC oD : MOVL @count(AP), R7 ; +. count 
i LOOP: 
1 He 19 9C 1 ROTL #16, bt ee Ri ; Get operand and swap words 
0 5 1 9C 1 ROTL #16, (R5)+, RO ;: 
64 16 14 JSB (R4S ; Do the appropriate conversion 
6 5§1 1 9C 15 ROTL #16, R1, (R6)+ |; Store result 
6 50 1 2 16 ROTL #16, RO, (R6)+ ; 
EB 5 f ; SOBGTR R7, LOOP 3; Loop until done 
50 7C 00 15 CLRQ RO ; Just in case someone is looking 
04 00 0 RET : Exit 
4 1 
] 
a § FUNC_ COMMON : 
55 04 AC 00 0 4 MOVL source(AP), R5 ; Get operand address 
51 85 18 9c 00 5 ROTL #16, (R5)+, R1 ; Get single operand 
36 6 7 9c 600 § ROTL #16, (RS), RO ; 
64 16 00 JSB (R45 : Do the appropriate conversion 
36 20 10 9C 390 8 ROTL #16, RO, R2 ; Swap words and longwords 
5 1 10 9 071 9 ROTL #16, R1, RO ; 
51 52 00 0075 0 MOVL R2, R1 5 
04 0078 1 RET 3; Return 
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B08 CVT_D_G = Convert D to G g- ern 19 4 0433299 UATHRTL. SREIATHCVTDG.MARS 1 . ay 
t ; -SBTTL CVT_D_G = Convert D to G 
7 5 CVT_D_G: 
as wn e.U F 7 $ EXTZV #23, #8, R1, R2 ; Get exponent in R2 
1 3 007 BEQL RO ; If zero, return zero 
53 50 1 i 8 EXTZvV #2, Bi, RO, R3 3 Save rounding bit 
50 50 FD 8F ASHQ #-5, RO, R 3; Shift right 5 bits 
0380 8F OA A 240 ADDW2 #<1624-128>, R2 ; Change exponent bias from D to G 
51 14 : F F 261 INSV Re. #20, wii, R1 : Insert 6 exponent 
05 E 4 4g BLBC 3—ss«aR'3, EXIF_G : Test for rounding 
0 oO 97 4 INCL R 3; Round up 
51 00 oD 4 rf: ADWC #0, R1 3; Propogate carry 
9C 28 EXIT_G: 
05 9C 4 RSB 3; Exit 
090 48 
09D 49 ZERO_G: 
OA 51 1F £0 0090 50 BBS #31, R1, RES_D ; Reserved operand? 
50 D4 OOAI 51 CLRL 3; Zero fraction and exponent 
51 7FFFFFFF 8F CA OQ0A3 26 BICL2 #*X7FFFFFFF, R1 3; Leave sign alone 
05 OQOAA 5 RSB 3; Exit 
anes 54 
AB 55 RES_D: ; Here if D_floating reserved operand 
52 50 10 9 AB 2$ ROTL #16, RO, R2 ; Swap words, longwords 
> a }| 10 9 AF 5 ROTL #16, R1, RO 
51 26 p 0B3 58 MOVL Ree R1 
5 086 59 TSTD R ; Will fault on reserved operand 
52 20 10 9C 0088 60 ROTL #16, RO, R2 ; Reswap and try again 
50 1 10 9C 008 61 ROTL #16, R1, RO 
51 52 00 00C 66 MOVL R2, R1 
B4 4611 «00¢ 6 BRB CVf_0_G 
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BOOS CVT_G_D = Convert G to D patie 94:39:98 EMTHRTL. SREIATHCVTDG. MAR; 1 ° (9) " 
f eg -SBTTL CVT_G_D = Convert G to D 
¢ 3 CVT_G_D: 
52 51 OB 146 4 C oe EXTZV #20, #11, R1, R2 ; Extract G exponent 
$e 3 CA § peat RO_D ; Return zero if zero 
53 1 1 F FF cc y EXTZV #51, #1, R1, R3 3; Save sign 
g ° 3 D1 7 ASHQ #3, RO, ; Shift left 3 bits 
80 8F OA D5 i SUBW2 #<1024-128>, R2 ; Change bias from G to D 
1 DA 7 BLEQ UNDERFLOW 3; Test for underflow 
0100 8F # Of a Hat | aoeatt ~ 3; Test for overflow 
2} 08 17 F BER 6 INSV Re. a3. #8, R1 3; Restore D exponent 
a. Cam F E 7 INSV RS, #51, #1, R1 ; Restore sign 
0 pee 38 RSB 
“ F 
OEE <o) ZERO_D: 
a. 2 & 33 81 BS #31, R1, RES_G ; Reserved operand? 
50 04 OOF § CLRL R ; Zero fraction and exponent 
51 7FFFFFFF 8F CA OQOF4 BICL2 #*X7FFFFFFF, R1 ; Clear all but sign, so that 
OFB 4 3 reserved operand is set 
its 32 3 correctly. 
05 bore Hy RSB 3; Return 
ts Hy UNDERF LOW: 
52 04 AD 3C OOFC 9 MOVZWL SFSW_SAVE_PSW(FP), R2 ; Get caller's PSW 
7C¢ B19 90 CLRQ RO ; Default value is zero 
1c 52. 06 4H 1 91 BBC #PSL$V_FU, R2, ERROR_RET ; If not enabled, return zero 
E "BF «609A (0106 36 MOVZBL #MTHSK"FLOUNDMAT, -(SP) ; Error code 
00000000'GF 01 FB gi 9 CALLS #1, G*ATHSSSIGNAL : Signal underflow 
OF 11 Hee 3¢ BRB ERROR_RET ; Return 
O13 96 OVERFLOW: 
50. OF OF 79 Q11 97 ASHQ #15, #1, RO ; Default reserved operand 
7E OO'BF 9A 117 98 MOVZBL #MTHSK_FLOOVEMAT, -(SP) : Error code 
00000000'GF 01 FB 3 + CALLS #1, G*ATHSS$SIGNAL 3; Signal overflow 
61 01 ERROR_RET: 
52 50 10 9C Q1 8 ROTL #16, RO, a 3; Re-swap words, longwords 
50. 6«—(51 10 9C 0126 ROTL #16, R11, R 3; in case we return with non- 
51 52 4 12A Be MOVL R2, R1 : zero value 
0 ; 4 b2 RSB 3; Return 
12E 09 RES_G: ; Here if G_floating reserved operand 
2f 29 1 9¢ (01 5 88 ROTL #16, RO, a ; Swap words, longwords 
. 4 9¢ (01 ROTL #16, R1, R 
51 5§ DO 0136 10 MOVL Ree R1 
50 53FD 0139 11 TSTG R ; Will fault on reserved operand 
135C \ : If no G_floating hardware, 
! : 17 3 congitton handler will take care 
:°@ ‘ 
15¢ 15 CVT_CONTINUE ; Continue here from error 
13¢ Ht ROTL 3; Reswap and try again 
140 1 ROTL 
144 18 
147 1 
146A 20 
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-SBTTL CVT_HANDLER = Local condition handler 


+ 
+ 


CVT_HANDLER allows at neg .6.D_and MTHSCVT_GA_DA to detect 
resérved operands using the TSTG instruction, regardless of 
whether the processor coed that instruction. 


When CVT_G_D sees a reserve operand. i gp eee a TSTG with 
the G G_floating operand in R Pm rocessor knows 
shout | TSTG, 2 eee rgperand fault id signaled. However, 
sn‘t support “opcode reserved to Digital” 
yours : Ll occur. CVT HANDLER turns this into a reserved operand 
fault. 


If the condition yetng signaled fs not SS$_OPCDEC or if the 


— +s 

PPP PERLE PERLE SEEPS 
>>> 

BERRA EF PWWWWWIWIN NI WIGROPORonononononyd 


NOUS WN OOO NAME WIN O ODNAULE WP 


1 
146A 
14A 
146A 
146A 
146A 
146A 
146A 
146A 
146A 
146A 
146A 
12a 
14A signaled instruct not in the frame that established this 
14A handler, then the meent ten is resignaled. A test is made to 
14A see if the saved RO-R1 is a G_floatin ine reserved operand. It 
146A will be on the initial fault, but might not be if it a been 
146A fixed up by another condition handler (i.e. LIBS$FIXUP FLT). 
14A If it is a reserved operand, the signal name is changed to 
14A SS$_ ROPRAND and the exception is resignaled. Otherwise 
4 2 execution continues with the instruction following the tsTG. 
O1ea aR 
O14A rk CVT_HANDLER: 
0000 O14A 50 eWORD “M<> 
50 04 AC DO 014C 51 MOVL 4(AP), RO ignal _argument list 
0000043C 8F 04 A0 D1 0150 26 CMPL CHFSL_SIG_NAME(RO), wsss’ orc EC ; Opcode Bin to Digital fault? 
1D 1 158 5 BNEQ RESIGRAL 7 No, resignal 
51 O8 AC OD 15A 54 MOVL 8CAP Rt 3; mechanism argument list 
08 Al OD 15€ 55 TSTL CHES. “nch, DEPTH(R1) . Is Coote ze 
14 12 0161 2$ BNEQ RESIGNA fn gan’ re “be this routine 
00000800 8F OC Al OC 04 ED 0163 5 CMPZV #4, Ae CHFSL_MCH_ SAVROGRI . wis) Reserved operand? 
10 iF 16D 38 BNEQ cont inue with neat teotruction 
04 AO 00000454 BF D 1¢F 2B sie #SS$_ROPRAND, CHFSL_SIG fume trds ; Change condition code name 
50 00000918 8F 00 aie 61 MOVL #SSS$_RESIGNAL, RO : Resignal exception 
ot al 
bree 64 CONTINUE: 
51 60 01 C3 O17F 9? SUBL3 CHFSL_SIG ARGS $( Ye R1 ; Get position of PC 
6041 FFBS CF DE 183 6 MOVAL Steve CONTINUE, (RODCRI] ; Set return address 
50 01 OD 189 6 MOVL #SS$_ CONTINUE. RO 3 Continue execution 
04 18C oe RET 
18D § 
18D 0 -END 


CVT CHANDLER 
ERROR_RET 
EXIT_G 
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zonnene processing 
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00000113 R 
= 000000 § 
00000177 R 
OOO000AB R 
464 9h 4: R 
= 00000004 
= 444 4 
= 00 44 
= 44 f 
= 444 91 
= 00000454 
OOOOOOFC R 8 
OOOOOOEE R 0 
00000090 R 02 
peroewenm arn osennnoan + 
! Psect synopsis ! 
Allocation PSECT No. Attributes 
00000000 ( 8. 00 f 9} NOPIC US CON ABS LCL 
60000000 < il 83 f 3°} NOPIC USR CON ABS LCL 
0000018D («( 39 2 ¢ 3°} PIC USR CON REL LCL 


Page faults CPU Time 


3 BARES 


See 


22 
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o V04-00 Page 
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“as 5 — — NOVEC BYTE 


T NOVEC BYTE 
RD NOURT NOVEC LONG 
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VAX-11 Macro Run Statistics 


Symbol table sort 
Pass 


a 00:04 

Symbol table output : 700: 
Psect synopsis output 4 :00: :00: 
Cross-reference output 9 :00: :00: 
Assembler run totals 51 :00: :00: 
The york ine set Limit was 900 pages. 
29148 bytes_(57 pages) of virtual memory were used to buffer 
There were 30 pages of symbol table space allocated to hold 5 
7 source Lines were read in Pass 1, produs ng 

1 pages of virtual memory were used to define 1 
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9} 9.27 :00:01 
7 


4 


macros. 


! Macro Library statistics ; 


tenor enero nar one ren w ene eww 


Macro Library name Macros defined 
.$255$DUA28: CSYSLIBISTARLET.MLB;2 7 
562 GETS were required to define 7 macros. 


There were mo errors, warnings or information messages. 


"ESEP=1586 1:27:97 EMTARTL.SREoArMcvTDG. man "28° (18, 


he intermediate code. 
5 non-local 
object records in Pass 


te local symbols. 


MACRO/ENABLE=SUPPRE SSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHCVTDG/OBJ=OBJ$:MTHCVTDG MSRC$:MTHCVTDG/UPDATE=(ENHS:MTHCVTDG) 
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